From: Juanma Barranquero Date: Tue, 2 Jan 2007 23:44:44 +0000 (+0000) Subject: (momentary-string-display): After moving point, set POS variable to it to avoid X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~3013 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=3d6d91b5312b49fb8d38ad44091e3330cb55fdbc;p=emacs.git (momentary-string-display): After moving point, set POS variable to it to avoid later errors once the buffer is modified. Doc fix. --- diff --git a/lisp/subr.el b/lisp/subr.el index 086163cca72..c98e14b6334 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1887,6 +1887,7 @@ menu bar menus and the frame title." (defun momentary-string-display (string pos &optional exit-char message) "Momentarily display STRING in the buffer at POS. Display remains until next event is input. +If POS is a marker, only its position is used; its buffer is ignored. Optional third arg EXIT-CHAR can be a character, event or event description list. EXIT-CHAR defaults to SPC. If the input is EXIT-CHAR it is swallowed; otherwise it is then available as @@ -1904,6 +1905,8 @@ If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there." (progn (save-excursion (goto-char pos) + ;; To avoid trouble with out-of-bounds position + (setq pos (point)) ;; defeat file locking... don't try this at home, kids! (setq buffer-file-name nil) (insert-before-markers string)